﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<card title="我的宝贝">
<p>
<%
dim myid
myid=qingtian.nid
ids=myid
set rs=Server.CreateObject("ADODB.Recordset")
strsQL="select bs,y6 from wupin where cstr(ids)='"&myid& "'"
rs.open strsQL,liao,1,2
if rs.recordcount<1 then
rs.addnew
rs("ids")=ids
rs.update
end if
Response.Write "<img src='img/bs.gif' alt='-3ght.net-'/><br/>宝石:(" & rs("bs") &"颗)<br/><a href='syboo.asp?wpid=bs&amp;cc="&cc&"&amp;ve="&ve&"'>应用宝石</a>|<a href='song.asp?wpid=bs&amp;cc="&cc&"&amp;ve="&ve&"'>送人</a><br/>"
Response.Write "<img src='img/hua.gif' alt='-3ght.net-'/><br/>情人花:(" & rs("y6") &"朵)<br/><a href='qrh.asp?wpid=y6&amp;cc="&cc&"&amp;ve="&ve&"'>应用情人花</a>|<a href='song.asp?wpid=y6&amp;cc="&cc&"&amp;ve="&ve&"'>送人</a><br/>"
Response.Write "=========<br/>"
        rs.Close
	Set rs=Nothing
%>
<a href="mywp.asp?cc=<%=cc%>&amp;ve=<%=ve%>">[我的包袱]</a><br/>
<a href="index.asp?cc=<%=cc%>&amp;ve=<%=ve%>">[我的江湖]</a><br/>
<%qingtian.shuchu%>